home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / user_public.asp < prev   
Encoding:
Text File  |  2002-03-12  |  6.1 KB  |  262 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <% page_title = "MY AVID CONTROL PANEL" %>
  8. <%
  9.     dim user_id
  10.     dim user_name
  11.     dim email
  12.     dim f_name
  13.     dim l_name
  14.     dim country
  15.     dim dtInserted
  16.     dim accesslevel
  17.     dim view_users_sql
  18.  
  19. sub request_view_users
  20. ''' request expected input parameters for this form
  21.     user_id = request("user_id")
  22.     user_name = request("user_name")
  23.     email = request("email")
  24.     f_name = request("f_name")
  25.     l_name = request("l_name")
  26.     country = request("country")
  27.     dtInserted = request("dtInserted")
  28.     accesslevel = request("accesslevel")
  29. end sub
  30.  
  31. sub validate_view_users
  32. ''' request and validate data entered from this form
  33.     user_id = trim(request("user_id"))
  34.     user_name = trim(request("user_name"))
  35.     email = trim(request("email"))
  36.     f_name = trim(request("f_name"))
  37.     l_name = trim(request("l_name"))
  38.     country = trim(request("country"))
  39.     dtInserted = trim(request("dtInserted"))
  40.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  41.         error_list.add "485144date","joined must be a valid date (MM/DD/YY)."
  42.         b_error = true
  43.     end if
  44.     accesslevel = trim(request("accesslevel"))
  45. end sub
  46.  
  47.  
  48. sub db_select_view_Users
  49.     sql = "SELECT " & _ 
  50.     "user_id, " & _ 
  51.     "user_name, " & _ 
  52.     "email, " & _ 
  53.     "f_name, " & _ 
  54.     "l_name, " & _ 
  55.     "country, " & _ 
  56.     "dtInserted, " & _ 
  57.     "accesslevel FROM Users" & _ 
  58.     " WHERE " & _ 
  59.     "Users.user_id = " & to_sql(user_id,"number") & ""
  60.     on error resume next
  61.     set rs = cn.Execute(sql)
  62.     if err.number <> 0 then
  63.         b_error = true
  64.     elseif rs.EOF then
  65.         b_results = false
  66.     else
  67.         user_id = rs("user_id")
  68.         user_name = rs("user_name")
  69.         email = rs("email")
  70.         f_name = rs("f_name")
  71.         l_name = rs("l_name")
  72.         country = rs("country")
  73.         dtInserted = rs("dtInserted")
  74.         accesslevel = rs("accesslevel")
  75.     end if
  76.     rs.Close
  77.     on error goto 0
  78. end sub
  79. sub db_insert_view_Users
  80.     sql = "INSERT INTO Users" & _ 
  81.     "(" & _ 
  82.     "user_name," & _ 
  83.     "email," & _ 
  84.     "f_name," & _ 
  85.     "l_name," & _ 
  86.     "country," & _ 
  87.     "dtInserted," & _ 
  88.     "accesslevel" & _ 
  89.     ") VALUES (" & to_sql(user_name,"text") & "," & _ 
  90.     "" & to_sql(email,"text") & "," & _ 
  91.     "" & to_sql(f_name,"text") & "," & _ 
  92.     "" & to_sql(l_name,"text") & "," & _ 
  93.     "" & to_sql(country,"text") & "," & _ 
  94.     "" & to_sql(dtInserted,"text") & "," & _ 
  95.     "" & to_sql(accesslevel,"number") & ")" & _ 
  96.     ""
  97.     'response.write sql
  98.     on error resume next
  99.     cn.Execute(sql)
  100.     if err.Number <> 0 then
  101.         b_error = true
  102.     else
  103.         set rs = cn.Execute("SELECT @@IDENTITY")
  104.         user_id = rs(0)
  105.         rs.Close
  106.     end if
  107.     on error goto 0
  108. end sub
  109. sub db_update_view_Users
  110.     sql = "UPDATE Users SET " & _ 
  111.     "user_name = " & to_sql(user_name,"text") & ", " & _ 
  112.     "email = " & to_sql(email,"text") & ", " & _ 
  113.     "f_name = " & to_sql(f_name,"text") & ", " & _ 
  114.     "l_name = " & to_sql(l_name,"text") & ", " & _ 
  115.     "country = " & to_sql(country,"text") & ", " & _ 
  116.     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _ 
  117.     "accesslevel = " & to_sql(accesslevel,"number") & " WHERE " & _ 
  118.     "user_id = " & to_sql(user_id,"number") & ""
  119.     'response.write sql
  120.     on error resume next
  121.     cn.execute(sql)
  122.     if err.number <> 0 then
  123.         b_error = true
  124.     end if
  125.     on error goto 0
  126. end sub
  127. sub db_delete_view_Users
  128.     sql = "DELETE FROM Users" & _ 
  129.     " WHERE " & _ 
  130.     "user_id = " & to_sql(user_id,"number") & ""
  131.     'response.write sql
  132.     on error resume next
  133.     cn.Execute(sql)
  134.     if err.number <> 0 then
  135.         b_error = true
  136.     end if
  137.     on error goto 0
  138. end sub
  139.  
  140. do_search = request("do_search")
  141. ''' request form keys
  142. user_id = request("user_id")
  143. ''' request action
  144. action = lcase(request("action"))
  145. ''' action case handler
  146. select case action
  147.  
  148. case "select_view_users"
  149. '  select the requested key record from database
  150. if user_id <> "" then
  151.     db_select_view_Users
  152. else
  153.     b_error = true
  154.     error_list.add "edit_view_Users", "Specify record to select."
  155. end if
  156.  
  157.  
  158. case "insert_view_users"
  159. '  request form data and insert a new record into database
  160.  
  161. validate_view_users
  162. if not b_error then
  163.     db_insert_view_users
  164. end if
  165.  
  166.  
  167.  
  168. case "update_view_users"
  169. '  request form data and update an existing database record
  170. validate_view_users
  171. if not b_error then
  172. if user_id <> "" then
  173.     db_update_view_users
  174. else
  175.     b_error = true
  176.     error_list.add "update_view_users", "Specify record to update."
  177. end if
  178. end if
  179.  
  180.  
  181. case "delete_view_users"
  182. '  delete the requested key database record
  183. if user_id <> "" then
  184.     db_delete_view_users
  185.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  186. else
  187.     b_error = true
  188.     error_list.add "delete_view_users", "Specify record to delete."
  189. end if
  190.  
  191.  
  192. end select
  193.  
  194. '  no action was specified, so handle the default case(s)
  195. if user_id <> "" then
  196.     db_select_view_Users
  197. end if
  198. %>
  199.  
  200. <!-- #include file='i_header.asp' -->
  201. <!-- #include file='i_menu.asp' -->
  202.  
  203.  
  204.     
  205. <%
  206. display_errs
  207. display_msg
  208. %>
  209.  
  210. <br><br>
  211. <table class='headerTable'>
  212. <tr>
  213. <td class='headerTD'>
  214. <A href='user_public.asp'>Member Profile</A>
  215. </td>
  216. </tr>
  217. </table>
  218. <table  >
  219. <form name="view_Users" action="" method="get" >
  220.         
  221.         <input type=hidden name="user_id" value="<% =user_id %>">
  222.         
  223. <tr>
  224.     <td class='labelTD'>username</td>
  225.     <td class='dataTD' width='75%'>
  226.         <% =user_name %>
  227.     </td>
  228. </tr>
  229. <tr>
  230.     <td class='labelTD'>email</td>
  231.     <td class='dataTD' >
  232.         <% =email %>
  233.     </td>
  234. </tr>
  235. <tr>
  236.     <td class='labelTD'>first name</td>
  237.     <td class='dataTD' >
  238.         <% =f_name %>
  239.     </td>
  240. </tr>
  241. <tr>
  242.     <td class='labelTD'>last name</td>
  243.     <td class='dataTD' >
  244.         <% =l_name %>
  245.     </td>
  246. </tr>
  247. <tr>
  248.     <td class='labelTD'>country</td>
  249.     <td class='dataTD' >
  250.         <% =country %>
  251.     </td>
  252. </tr>
  253. <tr>
  254.     <td class='labelTD'>joined</td>
  255.     <td class='dataTD' >
  256.         <% =dtInserted %>
  257.     </td>
  258. </tr>
  259. <tr>
  260.     <td class='labelTD'>member type</td>
  261.     <td class='dataTD' >
  262.         <%
  263.  
  264. select case accesslevel
  265.  
  266. case 1
  267.     accesslevel = "member"
  268. case 2
  269.     accesslevel = "VIP"
  270. case 3
  271.     accesslevel = "editor"
  272. case 4
  273.     accesslevel = "admin"
  274. end select
  275. %><% =accesslevel %>
  276.     </td>
  277. </tr>
  278.  
  279. </form>
  280. </table>
  281.  
  282. <br><br>
  283.  
  284. <!-- #include file=i_footer.asp -->
  285.  
  286.  
  287. <%
  288. ':: assure that any db resources are freed
  289. on error resume next
  290. rs.Close
  291. set rs = NOTHING
  292. cn.Close
  293. set cn = NOTHING
  294. user_cn.Close
  295. set user_cn = NOTHING
  296. on error goto 0
  297. %>
  298.